home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / Mops 2.7 / Mops source / Asm Source / Operand < prev    next >
Encoding:
Text File  |  1994-05-07  |  884 b   |  40 lines  |  [TEXT/MSET]
  1. \ Class Operand            Reese Warner            4/85
  2. \  03/07/86  GDC  fixed PC modes (9 & 10)
  3.  
  4. :class OPERAND  super{ object }
  5.  
  6. record
  7. {    var    VALUE
  8.     var    ABSVALUE
  9.     int    REG            \ register
  10.     int    MODE        \ operand mode
  11.     int    AUXTYPE        \ index type (A/D)
  12.     int    AUXREG        \ index register
  13.     int    AUXSIZE        \ index size (word or long)
  14.     int    PCMODE        \ for use with PC modes
  15. }
  16.  
  17. :m A/D:        get: auxType  ;m
  18. :m SETA/D:    put: auxType  ;m
  19. :m AUXILSIZE:    get: auxSize  ;m
  20. :m SETAUXSIZE:    put: auxSize  ;m
  21. :m AUXREG:    get: auxReg   ;m
  22. :m SETAUXREG:    put: auxReg   ;m
  23. :m REG:        get: reg  ;m
  24. :m SETREG:    put: reg  ;m
  25. :m VALUE:    get: value  ;m
  26. :m SETVAL:    put: value  ;m
  27. :m ABS:        get: absValue  ;m
  28. :m SETABS:    put: absValue  ;m
  29. :m MODE:    get: mode  ;m
  30. :m SETMODE:    put: mode  ;m
  31. :m EA:        mode: self  7 min  0 max  3 <<  reg: self  or  ;m
  32. :m GETPCMODE:    get: PCmode  ;m
  33. :m SETPCMODE:    put: PCmode  ;m
  34.  
  35. ;class
  36.  
  37. operand  OP1
  38. operand  OP2
  39. operand  OP3
  40.